home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / tcl / tclmotif.1 / tclmotif / tm.1.2 / wtour / text2.tcl < prev    next >
Encoding:
Text File  |  1994-01-30  |  234 b   |  17 lines
  1. #
  2. # Text callback info
  3. #
  4.  
  5. xmText .text managed
  6.  
  7. .text modifyVerifyCallback {value-changing %reason %ptr}
  8.  
  9. proc value-changing {reason ptr} {
  10.     upvar 1 $ptr p
  11.  
  12.     puts stdout "value in Text changing:
  13.     reason: $reason
  14.     text: $p"
  15. }
  16.     
  17.